Avoid fixnum round trip in prefix-numeric-value

* src/callint.c (Fprefix_numeric_value): Simplify.

diff --git a/src/callint.c b/src/callint.c
index 449b50486093b8e0caf32b901e2678a75fcd34ab..9d5767a21fee16cd67a7a72953ace7ad880880f1 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -798,7 +798,7 @@ Its numeric meaning is what you would get from `(interactive "p")'.  */)
   else if (EQ (raw, Qminus))
     XSETINT (val, -1);
   else if (CONSP (raw) && FIXNUMP (XCAR (raw)))
-    XSETINT (val, XFIXNUM (XCAR (raw)));
+    val = XCAR (raw);
   else if (FIXNUMP (raw))
     val = raw;
   else